home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 06-01.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  1KB  |  57 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE FUNCTION RandomNumber(Min,Max)
  6.  
  7. OldMode = FGgetmode
  8. NewMode = FGautomode
  9. FGsetmode NewMode
  10.  
  11. IF NewMode = 4 THEN
  12.    MaxColor = 3
  13. ELSEIF NewMode = 11 OR NewMode = 17 THEN
  14.    MaxColor = 1
  15. ELSEIF NewMode = 19 THEN
  16.    MaxColor = 255
  17. ELSE
  18.    MaxColor = 15
  19. END IF
  20.  
  21. Left = 100
  22. MaxX = FGgetmaxx - 1
  23. MaxY = FGgetmaxy - 1
  24.  
  25. WHILE Left > 0
  26.  
  27.    X = RandomNumber(1,MaxX)
  28.    Y = RandomNumber(1,MaxY)
  29.  
  30.    Area = FGgetpixel(X-1,Y-1) + FGgetpixel(X,Y-1) + FGgetpixel(X+1,Y-1) _
  31.         + FGgetpixel(X-1,Y)   + FGgetpixel(X,Y)   + FGgetpixel(X+1,Y) _
  32.         + FGgetpixel(X-1,Y+1) + FGgetpixel(X,Y+1) + FGgetpixel(X+1,Y+1)
  33.  
  34.    IF Area = 0 THEN
  35.       PointColor = RandomNumber(1,MaxColor)
  36.       FGsetcolor PointColor
  37.       FGpoint X, Y
  38.       Left = Left - 1
  39.    END IF
  40.  
  41. WEND
  42.  
  43. FGwaitkey
  44.  
  45. FGsetmode OldMode
  46. FGreset
  47.  
  48. END
  49.  
  50.  
  51. FUNCTION RandomNumber(Min,Max)
  52.  
  53. Temp = RND * 32767
  54. RandomNumber = (Temp MOD (Max-Min+1)) + Min
  55.  
  56. END FUNCTION
  57.